home *** CD-ROM | disk | FTP | other *** search
Text File | 1989-05-01 | 3.3 KB | 87 lines | [TEXT/MPS ] |
- % ---------------------------------------------------------------------------
- % Class MACMenuItem
- %
- % In this module you find the programmers interface to Menus.
- % It is built on top of the TOOLBOX routines in TOOLBOXmenus.
- % For a description of the routines see Inside Macintosh, chapter 11.
- %
- % 890317/Boris Magnusson
- % 890330/Göran Eriksson
- %
- % ---------------------------------------------------------------------------
-
- external class toolboxmenu="::SInterfaces:toolboxmenu";
- external class MacbasicMenu="::Sinterfaces:macbasicmenu";
- external text procedure String_Text="::SInterfaces:String_Text";
-
- toolboxMenu class MacMenuItem;
- virtual: procedure domenu is
- procedure domenu(menuid,itemno); integer menuid,itemno;;
- begin
- ref(macBasicMenu) partOf; ! Set to macmenu when item is inserted in a menu ;
- short integer MyNo; ! My sequence number in the menu (set when inserted);
- ! ----------------------------;
-
- procedure doMenu(Menuid,itemno); integer MenuId,itemno;
- begin ! -- defult -- empty implementation -- ; end ;
-
- % PROCEDURE SetItem(menu: MenuHandle; item: INTEGER; itemString: Str255);
- PROCEDURE SetItem(itemString);value itemString;text itemString;
- toolboxsetItem(partOf.menuHandle,MyNo,itemstring);
-
- % PROCEDURE GetItem(menu: MenuHandle; item: INTEGER; VAR itemString: Str255);
- PROCEDURE GetItem(itemString);name itemString;text itemString;
- begin
- text temp;
- temp:-blanks(256);
- ToolboxGetItem(partOf.menuHandle, myNo, temp);
- ItemString:-string_text(temp);
- end;
-
- % PROCEDURE EnableItem(menu: MenuHandle; item: INTEGER);
- PROCEDURE EnableItem;ToolboxEnableItem(partOf.menuHandle, myNo);
-
-
- % PROCEDURE DisableItem(menu: MenuHandle; item: INTEGER);
- PROCEDURE DisableItem;ToolboxDisableItem(partOf.menuHandle, myNo);
-
- % PROCEDURE CheckItem(menu: MenuHandle; item: INTEGER; checked: BOOLEAN);
- PROCEDURE CheckItem(checked);boolean checked;
- ToolboxCheckItem(partOf.menuHandle, myNo, checked);
-
- % PROCEDURE SetItemIcon(menu: MenuHandle; item: INTEGER; iconNum: Byte);
- PROCEDURE SetItemIcon(iconNum);short integer iconNum;
- ToolboxSetItemIcon(partOf.menuHandle, myNo, iconNum);
-
- % PROCEDURE GetItemIcon(menu: MenuHandle; item: INTEGER; VAR iconNum: Byte);
- PROCEDURE GetItemIcon(iconNum);name iconNum;short integer iconNum;
- begin
- short integer localiconNum;
- localiconNum:=iconNum;
- ToolboxGetItemIcon(partOf.menuHandle, myNo, localiconNum);
- iconNum:=localiconNum
- end;
-
-
- % PROCEDURE SetItemStyle(menu: MenuHandle; item: INTEGER; styleVal: Style);
- % StyleItem = (bold, italic, underline, outline, shadow, condense, extend);
- % Style = SET OF StyleItem;
- PROCEDURE SetItemStyle(styleVal); short integer styleVal;
- ToolboxSetItemStyle(partOf.menuHandle, myNo, styleVal);
-
- % ???? PROCEDURE GetItemStyle(menu: MenuHandle; item: INTEGER; VAR styleVal: Style);
-
- % PROCEDURE SetItemMark(menu: MenuHandle; item: INTEGER; markChar: CHAR);
- PROCEDURE SetItemMark(markChar);character markChar;
- ToolboxSetItemMark(partOf.menuHandle, myNo, markChar);
-
- % PROCEDURE GetItemMark(menu: MenuHandle; item: INTEGER; VAR markChar: CHAR);
- PROCEDURE GetItemMark(markChar); name markChar; character markChar;
- begin
- character localmarkChar;
- localmarkChar:=markChar;
- ToolboxGetItemMark(partOf.menuHandle, myNo, localmarkChar);
- markChar:=localmarkChar;
- end;
-
- END --- mac Menu Item --- ;